home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibmenus.arc / GLOBTYPE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-01-15  |  640 b   |  21 lines
  1.                         (* Global Declarations *)
  2. Const
  3.  
  4.                    (* 8086/8088 hardware flags *)
  5.  
  6.    Carry_Flag     = 1;
  7.    Parity_Flag    = 4;
  8.    Aux_Carry_Flag = 16;
  9.    Zero_Flag      = 64;
  10.    Sign_Flag      = 128;
  11.  
  12. Type
  13.  
  14.    AnyStr  = String[255]  (* Matches any string for parameter passing *);
  15.  
  16.    Regpack = Record       (* 8086/8088 registers                      *)
  17.                 Case Integer Of
  18.                    1: ( Ax, Bx, Cx, Dx, Bp, Si, Di, Ds, Es, Flags : Integer );
  19.                    2: ( Al, Ah, Bl, Bh, Cl, Ch, Dl, Dh            : Byte    );
  20.              End;
  21.